with Ada.Strings.Bounded;
use Ada.Strings.Bounded; 

package Comunes is

	package Str100 is new Generic_Bounded_Length(100);
	use Str100;

end Comunes;